Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
C# / VB.NET - [VB.NET]Correzione codice
Forum - C# / VB.NET - [VB.NET]Correzione codice

Avatar
flash.tato (Normal User)
Newbie


Messaggi: 2
Iscritto: 25/06/2006

Segnala al moderatore
Postato alle 22:53
Lunedì, 26/06/2006
Allora grazie a uno di un altro forum che mi ha postato un codice.

Il programma in pratica ha questa form e nn deve fare altro che unire dei files in uno :k: ma c'e' il problema che modifica alcuni bytes che nn vanno modificsti ed è la cosa che mi fà imbestialire in quanto il codice nn ordina di fare questo :-|

Il codice è questo:
Codice sorgente - presumibilmente VB.NET
  1. Imports System.IO
  2. Public Class Form1
  3.     Private Sub btn_add_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_add.Click
  4.         If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
  5.             Dim S() As String = OpenFileDialog1.FileNames 'un array che contiene i nomi dei file scelti
  6.             Dim File As String
  7.             For Each File In S
  8.                 ListBox1.Items.Add(File)
  9.             Next
  10.         End If
  11.     End Sub
  12.  
  13.     Private Sub btn_create_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_create.Click
  14.         If SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
  15.             Dim W As New IO.StreamWriter(SaveFileDialog1.FileName)
  16.             Dim R As IO.StreamReader
  17.             Dim File As String
  18.  
  19.             'il valore massimo della proprietà value della progressbar
  20.             ProgressBar1.Maximum = ListBox1.Items.Count
  21.             'il valore iniziali della progressbar
  22.             ProgressBar1.Value = 0
  23.             LabelStatus.Text = "Creazione File in corso..."
  24.  
  25.             ' scrittura del file
  26.             For i As Int16 = 0 To ListBox1.Items.Count - 1
  27.                 File = ListBox1.Items(i)
  28.                 R = New IO.StreamReader(File)
  29.                 W.WriteLine(R.ReadToEnd)
  30.                 R.Close()
  31.                 R = Nothing
  32.                 ProgressBar1.Value += 1
  33.             Next
  34.             LabelStatus.Text = "File creato"
  35.             ProgressBar1.Value = 0
  36.         End If
  37.     End Sub
  38. End Class


La FORM è questa
[IMG]http://img87.imageshack.us/img87/7629/14ct3.jpg[/IMG]

Io pensavo fosse questa linea da modificare
Codice sorgente - presumibilmente C# / VB.NET
  1. For i As Int16 = 0 To ListBox1.Items.Count - 1


Ultima modifica effettuata da flash.tato il 26/06/2006 alle 23:00
PM Quote
Avatar
Il Totem (Admin)
Guru^2


Messaggi: 3635
Iscritto: 24/01/2006

Segnala al moderatore
Postato alle 19:07
Lunedì, 24/07/2006
Di' un po': hai postato il problema su html.it? Perchè potrei aver risposto io: lo stile del codice sembra decisamente il mio... Cmq, come mai dici che non copia alcuni bytes? Ti sei fermato a verificare byte a byte che ognuno del file creato corrisponda pedissequamente a quelli dei file uniti? Non credo... allora, qual è l'errore?

P.S.: alla fine del codice manca W.Close()

Ultima modifica effettuata da Il Totem il 24/07/2006 alle 19:08
PM Quote